#setwd("~/Dropbox/DynamicDI/2. Do-Files")
mytheme = theme(panel.grid.major = element_blank(), panel.grid.minor = element_blank(), axis.text=element_text(size=18), text=element_text(size=18))
theme_set(theme_bw())
theme_update(text= element_text(size=22,color='black'),axis.text.y = element_text(color='black',size=15),
             axis.text.x = element_text(color='black',angle = 0, hjust = 0.5,size=15),
             plot.title = element_text(size=22,color='black',hjust=0.5), panel.grid.major=element_blank(),
             legend.background=element_blank(),
             panel.grid.minor=element_blank())
fitrules<-list(scale_color_manual(values=c("Data"="red4","Simulation"="navy")),
               scale_fill_manual(values=c("Data"="red4","Simulation"="navy")),
               scale_shape_manual(values=c("Data"=1,"Simulation"=19)))




